home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok32.lha / TestBild / txt / Muster.def < prev    next >
Text File  |  1993-08-15  |  4KB  |  98 lines
  1. (*--------------------------------------------------------------------------
  2.     :Program.      Muster.def
  3.     :Author.       Andreas Lüdtke
  4.     :Address.      Stangestraße 11, D 2000 Hamburg 50
  5.     :Phone.        040/3905153
  6.     :History.      V1.0, 01-Jan-90, Andreas Lüdtke
  7.     :Copyright.    PD © Andreas Lüdtke 1990.
  8.     :Language.     Modula-2
  9.     :Translator.   M2Amiga 3.3d
  10.     :Contents.     Definitionsmodul mit Prozeduren zum Erzeugen
  11.     :Contents.     der Muster des Testbildprogramms
  12.  ---------------------------------------------------------------------------*)
  13.  
  14. DEFINITION MODULE Muster;
  15.  
  16. FROM Graphics           IMPORT RastPortPtr, ViewPortPtr;
  17.  
  18.  
  19.  
  20. (*--------------------------------------------------------------------------
  21.     :Input.        vpptr - Zeiger auf ViewPort
  22.     :Input.        GRAU - bei TRUE werden Farben BaseColor..BaseColor+8
  23.     :Input.               auf Grautöne gesetzt
  24.     :Semantic.     Wechselt Farben nach Grau bzw. Farbig
  25.  ---------------------------------------------------------------------------*)
  26. PROCEDURE ChangeColors( vpptr : ViewPortPtr;
  27.                          GRAU : BOOLEAN);
  28.  
  29. (*--------------------------------------------------------------------------
  30.     :Input.        rp - Zeiger auf ViewPort
  31.     :Input.        invert - bei TRUE werden Farben 0 und 1 vertauscht
  32.     :Semantic.     vertauscht Farben
  33.  ---------------------------------------------------------------------------*)
  34. PROCEDURE InvertLineColors( vpptr : ViewPortPtr;
  35.                            invert : BOOLEAN);
  36.  
  37. (*--------------------------------------------------------------------------
  38.     :Input.        rp - Zeiger auf RastPort
  39.     :Input.        xstep - Abstand der Linien in X-Richtung (Pixel)
  40.     :Input.        ystep - Abstand der Linien in Y-Richtung (Pixel)
  41.     :Semantic.     zeichnet Linienmuster
  42.  ---------------------------------------------------------------------------*)
  43. PROCEDURE DrawLines( rp : RastPortPtr;
  44.                   xstep : CARDINAL;
  45.                   ystep : CARDINAL);
  46.  
  47. (*--------------------------------------------------------------------------
  48.     :Input.        rp - Zeiger auf RastPort
  49.     :Input.        xstep - Abstand der Pixel in X-Richtung
  50.     :Input.        ystep - Abstand der Pixel in Y-Richtung
  51.     :Semantic.     zeichnet Punktmuster
  52.  ---------------------------------------------------------------------------*)
  53. PROCEDURE DrawPixel( rp : RastPortPtr;
  54.                   xstep : CARDINAL;
  55.                   ystep : CARDINAL);
  56.  
  57. (*--------------------------------------------------------------------------
  58.     :Input.        rp - Zeiger auf RastPort
  59.     :Input.        xstep - Abstand der Rechtecke in X-Richtung (Pixel)
  60.     :Input.        ystep - Abstand der Rechtecke in Y-Richtung (Pixel)
  61.     :Semantic.     zeichnet Schachbrettmuster
  62.  ---------------------------------------------------------------------------*)
  63. PROCEDURE DrawSquares( rp : RastPortPtr;
  64.                     xstep : CARDINAL;
  65.                     ystep : CARDINAL);
  66.  
  67. (*--------------------------------------------------------------------------
  68.     :Input.        rp - Zeiger auf RastPort
  69.     :Semantic.     zeichnet Grau- bzw. Farbtreppe
  70.  ---------------------------------------------------------------------------*)
  71. PROCEDURE DrawSteps( rp : RastPortPtr);
  72.  
  73. (*--------------------------------------------------------------------------
  74.     :Input.        rp - Zeiger auf RastPort
  75.     :Input.        xstep - Abstand der Rechtecke in X-Richtung (Pixel)
  76.     :Input.        ystep - Abstand der Rechtecke in Y-Richtung (Pixel)
  77.     :Semantic.     zeichnet Rechtecke
  78.  ---------------------------------------------------------------------------*)
  79. PROCEDURE DrawRects( rp : RastPortPtr;
  80.                   xstep : CARDINAL;
  81.                   ystep : CARDINAL);
  82.  
  83. (*--------------------------------------------------------------------------
  84.     :Input.        rp - Zeiger auf RastPort
  85.     :Input.        xstep - Abstand der Kreise in Pixel
  86.     :Semantic.     zeichnet Kreise
  87.  ---------------------------------------------------------------------------*)
  88. PROCEDURE DrawCircles( rp : RastPortPtr;
  89.                     xstep : CARDINAL);
  90.  
  91. (*--------------------------------------------------------------------------
  92.     :Input.        rp - Zeiger auf RastPort
  93.     :Semantic.     zeichnet Testbild
  94.  ---------------------------------------------------------------------------*)
  95. PROCEDURE DrawPicture( rp : RastPortPtr);
  96.  
  97. END Muster.
  98.